home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / bestofsd.lha / HoneyIsCool.AMOS / HoneyIsCool.amosSourceCode < prev    next >
AMOS Source Code  |  1992-10-20  |  753b  |  13 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Screen Open 0,320,256,2, : Curs Off : Degree : Palette ,0 : Hide 
  10. Do : A=Rnd(360) : B=Rnd(360) : C=0 : F=Rnd(2)+1 : E=Rnd(2)+1 : Fade 4,0,$F9F
  11.    For N=0 To 360 : Inc C : XA#=Abs(Cos(C*F+A))*92 : YA#=Abs(Sin(C*E+B))*92
  12.       X=159+Sin(C)*XA#+Sin(C)*32 : Y=127+Cos(C)*YA#+Cos(C)*32
  13. Paste Bob X,Y,1 : Next : Wait 10 : Fade 2,,0 : Wait 32 : Cls : Loop